ON ERROR VDU4:REPORT:PRINT ERL:END

DIM block% 1024

Menu%=FNswi_number("Director_Menu")
EndMenu%=FNswi_number("Director_EndMenu")
Option%=FNswi_number("Director_Option")
Command%=FNswi_number("Director_Command")
Dash%=FNswi_number("Director_Dash")
XOS_ReadVarVal%=FNswi_number("XOS_ReadVarVal")
XOS_SetVarVal%=FNswi_number("XOS_SetVarVal")

SYS "OS_GetEnv" TO comm%
SYS "OS_ReadArgs","name,quit,path/k,command/k,options,file",comm%,block%,1023

path$=FNstring(block%!8)
command$=FNstring(block%!12)
IF block%!16<>0 options$="-"+FNstring(block%!16) ELSE options$=""
IF block%!20<>0 file$=FNstring(block%!20) ELSE file$=""

PROCset("Director$Menu","CVSSubMenu")
PROCset("Leaf","")
SYS Menu%, """CVS arguments"" CVSSubMenu -temp"
  SYS Option%,"""path: "+path$+""""
  SYS Option%,"""file: "+file$+""""
  SYS Option%,"""command: "+command$+""""
  SYS Option%,"""options: "+options$+""""
  SYS Option%, """"+options$+""" -len 100"
    SYS Command%, "DirectorCVSDo "+path$+" "+command$+" <Leaf>"
REM    SYS Command%, "DirectorCVSDo "+path$+" "+file$+" "+command$+" <Leaf>"
SYS EndMenu%
END
:

DEF FNstring(ptr%):LOCAL a$:a$=""
WHILE ?ptr%>31
  a$+=CHR$(?ptr%):ptr%+=1
ENDWHILE:=a$

DEF FNswi_number(name$)
  SYS &39,,name$ TO A%
=A%

DEF FNread(var$):LOCAL s%
SYS XOS_ReadVarVal%,var$,block%,1023 TO ,,s%
=FNstring_s(block%,s%)

DEF PROCset(var$,value$)
SYS XOS_SetVarVal%,var$,value$,LEN(value$)
ENDPROC
